home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / DEMOC4.EVT < prev    next >
Text File  |  1991-11-04  |  809b  |  33 lines

  1.    {===================================================================
  2.  
  3.    SHELL to DOS
  4.  
  5.    ===================================================================}
  6. procedure heDosShell ;
  7. var
  8.    UsingBuffers              : boolean ;
  9. begin
  10.    UsingBuffers              := BufHeapEnd > 0 ;
  11.    DoneSysError ;
  12.    DoneEvents ;
  13.    DoneVideo ;
  14.    DoneMemory ;
  15.    if UsingBuffers then
  16.       SetMemTop ( Ptr ( BufHeapPtr , 0 ) )
  17.    else
  18.       SetMemTop ( HeapPtr ) ;
  19.    PrintStr ( 'Type ''EXIT'' to return...' ) ;
  20.    SwapVectors ;
  21.    Exec ( GetEnv ( 'COMSPEC' ) , '' ) ;
  22.    SwapVectors ;
  23.    if UsingBuffers then
  24.       SetMemTop ( Ptr ( BufHeapEnd , 0 ) )
  25.    else
  26.       SetMemTop ( HeapEnd ) ;
  27.    InitMemory ;
  28.    InitVideo ;
  29.    InitEvents ;
  30.    InitSysError ;
  31.    Application^.Redraw ;
  32. end ;
  33.